home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CNBSRC.ZIP / WELCOME.INC < prev   
Text File  |  1996-01-14  |  4KB  |  113 lines
  1.  
  2. Procedure WELCOME;
  3.  
  4. BEGIN
  5. xline[1] := ' ';
  6. xline[2] := '      Issue #5.  Well, here it is.  I was neglecting this issue for   ';
  7. xline[3] := '      awhile, not writing anything or doing any pack reviews.  When   ';
  8. xline[4] := '      I realized just how little I had done I decided to get on the   ';
  9. xline[5] := '      ball and put some material together.  Unfortunately, as I was   ';
  10. xline[6] := '      doing this neither the ACiD or Legend pack was released so      ';
  11. xline[7] := '      they''re missing from this issue.  Since I didn''t want to lose   ';
  12. xline[8] := '      my motivation I decided just to go ahead with it and catch them ';
  13. xline[9] := '      next month.                                                     ';
  14. xline[10] := '                                                                      ';
  15. xline[11] := '      As far as Crash n'' Burn is concerned it''s still moving along.   ';
  16. xline[12] := '      Hopefully next month I''ll be able to put some more time into    ';
  17. xline[13] := '      it and redo the look.  I did include the source code with       ';
  18. xline[14] := '      this issue so people won''t have to hunt me down for it.  It''s   ';
  19. xline[15] := '      nothing spectacular, basic concepts for the beginning pro-      ';
  20. xline[16] := '      grammer.  Use it however you want.  Also included are a couple  ';
  21. xline[17] := '      of ansis for anyone who might need or want them.  Both were     ';
  22. xline[18] := '      played out in past issues of CnB and would make good matrices   ';
  23. xline[19] := '      or menu templates.                                              ';
  24. xline[20] := '                                                                      ';
  25. xline[21] := '      Other than that there isn''t much else to tell.  What I need     ';
  26. xline[22] := '      though is to recruit a co-editor to help me collect material    ';
  27. xline[23] := '      and do pack reviews each month.  If anyone is interested in     ';
  28. xline[24] := '      the job then get in touch with me.                              ';
  29. xline[25] := '                                                                      ';
  30. xline[26] := '      Stone the Crow                                                  ';
  31. xline[27] := '                                                                      ';
  32. xend := 27;
  33.  
  34. {Read selected text}
  35. textbackground(0);
  36. textcolor(9);
  37. clrscr;
  38. T_HDRimg{Display the text header ansi};
  39. window(4,5,76,21);
  40. gotoxy(1,1);
  41. xch := ' ';
  42. for x := 1 to 16 do
  43. writeln(xline[x]);
  44. while (xch <> (#13)) and (xch <> (#27)) do begin
  45. xch := ' ';
  46. xch := readkey;
  47.   case xch of
  48.        (#80) :begin
  49.                 if x <= xend then
  50.                   begin
  51.                     x := x + 1;
  52.                     gotoxy(1,1);
  53.                     delLine;
  54.                     gotoxy(1,16);
  55.                     writeln(xline[x]);
  56.                   end;
  57.               end;
  58.        (#72) :begin
  59.                 if (x - 15) > (1) then
  60.                  begin
  61.                    x := x - 1;
  62.                    gotoxy(1,1);
  63.                    InsLine;
  64.                    writeln(xline[x-15]);
  65.                  end;
  66.               end;
  67.        (#81) :begin
  68.                 if x <= xend then
  69.                   begin
  70.                     x := x + 1;
  71.                     gotoxy(1,1);
  72.                     delLine;
  73.                     gotoxy(1,16);
  74.                     writeln(xline[x]);
  75.                   end;
  76.               end;
  77.        (#73) :begin
  78.                 if (x - 15) > (1) then
  79.                  begin
  80.                    x := x - 1;
  81.                    gotoxy(1,1);
  82.                    InsLine;
  83.                    writeln(xline[x-15]);
  84.                  end;
  85.               end;
  86.        (#77) :begin
  87.                 if x <= xend then
  88.                   begin
  89.                     x := x + 1;
  90.                     gotoxy(1,1);
  91.                     delLine;
  92.                     gotoxy(1,16);
  93.                     writeln(xline[x]);
  94.                   end;
  95.               end;
  96.        (#75) :begin
  97.                 if (x - 15) > (1) then
  98.                  begin
  99.                    x := x - 1;
  100.                    gotoxy(1,1);
  101.                    InsLine;
  102.                    writeln(xline[x-15]);
  103.                  end;
  104.               end;
  105.   end;
  106. end;
  107. window(1,1,80,25){Return screen to normal size};
  108. END;
  109.  
  110.  
  111.  
  112.  
  113.